Loading required Libraries

## -- Attaching packages ----------------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.3     v dplyr   1.0.0
## v tidyr   1.1.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0
## -- Conflicts -------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
## Loading required package: sp
## rgdal: version: 1.5-12, (SVN revision 1018)
## Geospatial Data Abstraction Library extensions to R successfully loaded
## Loaded GDAL runtime: GDAL 3.0.4, released 2020/01/28
## Path to GDAL shared files: C:/Users/radojevic/Documents/R/win-library/4.0/rgdal/gdal
## GDAL binary built with GEOS: TRUE 
## Loaded PROJ runtime: Rel. 6.3.1, February 10th, 2020, [PJ_VERSION: 631]
## Path to PROJ shared files: C:/Users/radojevic/Documents/R/win-library/4.0/rgdal/proj
## Linking to sp version:1.4-2
## To mute warnings of possible GDAL/OSR exportToProj4() degradation,
## use options("rgdal_show_exportToProj4_warnings"="none") before loading rgdal.
## 
## Attaching package: 'magrittr'
## The following object is masked from 'package:purrr':
## 
##     set_names
## The following object is masked from 'package:tidyr':
## 
##     extract

Loading in the Shape File of Swiss Municipalities and Transforming it

## Warning in OGRSpatialRef(dsn, layer, morphFromESRI = morphFromESRI,
## dumpSRS = dumpSRS, : Discarded datum CH1903 in CRS definition: +proj=somerc
## +lat_0=46.9524055555556 +lon_0=7.43958333333333 +k_0=1 +x_0=600000 +y_0=200000
## +ellps=bessel +towgs84=674.374,15.056,405.346,0,0,0,0 +units=m +no_defs
## OGR data source with driver: ESRI Shapefile 
## Source: "C:\Git-Hub\PolMap\Muncip\swissBOUNDARIES3D_1_3_TLM_HOHEITSGEBIET.dbf", layer: "swissBOUNDARIES3D_1_3_TLM_HOHEITSGEBIET"
## with 2350 features
## It has 23 fields
## Integer64 fields read as strings:  ERSTELL_J REVISION_J HERKUNFT_J BEZIRKSNUM KANTONSNUM EINWOHNERZ BFS_NUMMER
## Warning in showSRID(uprojargs, format = "PROJ", multiline = "NO"): Discarded datum WGS_1984 in CRS definition,
##  but +towgs84= values preserved

Drop Lichtenstein out of the Shape File

## Warning: `as.tibble()` is deprecated as of tibble 2.0.0.
## Please use `as_tibble()` instead.
## The signature and semantics have changed, see `?as_tibble`.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2213 / R2213C1: got 'Area'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2214 / R2214C1: got '1) Polygon area (excluding lakes > 5
## km2); status of communal boundaries 1.1.2016, swissBOUNDARIES3D © swisstopo'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2216 / R2216C1: got 'Economy'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2217 / R2217C1: got '2) Statistics on enterprise structure
## STATENT; provisional results'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2219 / R2219C1: got 'Social security'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i =
## sheet, : Expecting numeric in A2220 / R2220C1: got '3) Partially revised data
## (17.07.2020)'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2222 / R2222C1: got 'Voter shares of selected parties in %
## (National Council elections)'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2223 / R2223C1: got '4) Switzerland and canton Basel-
## Stadt: FDP/PLR inclusive LP/PL-BS'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2224 / R2224C1: got '* No candidate in this canton or
## communes without their own polling station'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2226 / R2226C1: got 'State of the communes: 01.01.2020'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2227 / R2227C1: got 'Revised version 17.07.2020'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2229 / R2229C1: got 'Information: Statistical Information,
## 058 463 60 11, info@bfs.admin.ch'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2231 / R2231C1: got 'Federal Statistical Office'
## Warning in read_fun(path = enc2native(normalizePath(path)), sheet_i = sheet, :
## Expecting numeric in A2232 / R2232C1: got '© FSO'
## New names:
## * `Change in ha` -> `Change in ha...18`
## * `Change in ha` -> `Change in ha...20`
## * `Primary sector` -> `Primary sector...24`
## * `Secondary sector` -> `Secondary sector...25`
## * `Tertiary sector` -> `Tertiary sector...26`
## * ...
## Warning in function_list[[k]](value): NAs introduced by coercion
## Warning in function_list[[k]](value): NAs introduced by coercion

## Warning in function_list[[k]](value): NAs introduced by coercion

## Warning in function_list[[k]](value): NAs introduced by coercion

## Warning in function_list[[k]](value): NAs introduced by coercion

## Warning in function_list[[k]](value): NAs introduced by coercion

## Warning in function_list[[k]](value): NAs introduced by coercion

## Warning in function_list[[k]](value): NAs introduced by coercion